LDARGS 1
CALL (1, "L1")
STOP
FLabel (1, "L1")
GETBP
OFFSET 0
ADD
LDI
CSTI 0
SUB
IFNZRO "L3"
CSTI 0
PRINTI
INCSP -1
GOTO "L2"
Label "L3"
GETBP
OFFSET 0
ADD
LDI
CSTI 1
SUB
IFNZRO "L4"
CSTI 1
PRINTI
INCSP -1
GOTO "L2"
Label "L4"
CSTI -1
PRINTI
INCSP -1
Label "L2"
INCSP 0
RET 0